home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / mind boggle_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  107 lines
  1. 1 print"[147]mind boggle":clr
  2. 2 for t= 1 to 2000:next
  3. 3 dimc(4),g(4)
  4. 4 s1=36875:s2=s1+1:pokes1+3,15:pokes1+4,120:x=0
  5. 5 print"[147]"
  6. 6 print"  [144] 1[146]  2[146]  3[146] [159] 4[146] [156] 5[146]  6[146][144]"
  7. 7 print"[144]i choose 4 colors now":forl=1to100:pokes2,int(rnd(1)*128)+128:form=1to10
  8. 8 nextm:nextl:pokes2,0:gosub106
  9. 9 a$="123456":r=int(rnd(1)*6)+1:a1$=mid$(a$,r,1):a1=val(a1$)
  10. 10 r=int(rnd(1)*6)+1:a2$=mid$(a$,r,1):ifa1$=a2$then10
  11. 11 a2=val(a2$)
  12. 12 r=int(rnd(1)*6)+1:a3$=mid$(a$,r,1):ifa1$=a3$ora2$=a3$then12
  13. 13 a3=val(a3$)
  14. 14 r=int(rnd(1)*6)+1:a4$=mid$(a$,r,1):ifa1$=a4$ora2$=a4$ora3$=a4$then14
  15. 15 a4=val(a4$)
  16. 16 x$="":pokes1,135:forl=1to100:nextl:pokes1,0:input"select colors";x$
  17. 17 iflen(x$)<>4thengosub106:goto93
  18. 18 fore=1to4:v=val(mid$(x$,e,1))
  19. 19 ifv<1orv>6thengosub106:goto93
  20. 20 nexte
  21. 21 x=x+1:b=0:w=0:aa$=a1$+a2$+a3$+a4$
  22. 22 forj=1to4
  23. 23 g(j)=val(mid$(x$,j,1))
  24. 24 c(j)=val(mid$(aa$,j,1))
  25. 25 ifg(j)=c(j)thenb=b+1:g(j)=0:c(j)=0
  26. 26 nextj
  27. 27 forj=1to4:ifc(j)=0then33
  28. 28 h=0:fork=1to4
  29. 29 ifc(j)=0then32
  30. 30 ifc(j)<>g(k)then32
  31. 31 h=1:g(k)=0:c(j)=0
  32. 32 nextk:w=w+h
  33. 33 nextj
  34. 34 onxgoto35,36,37,38,39,40,41,42,43,44
  35. 35 print" 1 ";:goto45
  36. 36 print" 2 ";:goto45
  37. 37 print" 3 ";:goto45
  38. 38 print" 4 ";:goto45
  39. 39 print" 5 ";:goto45
  40. 40 print" 6 ";:goto45
  41. 41 print" 7 ";:goto45
  42. 42 print" 8 ";:goto45
  43. 43 print" 9 ";:goto45
  44. 44 print"10 ";
  45. 45 x1=val(left$(x$,1)):x2=val(mid$(x$,2,1)):x3=val(mid$(x$,3,1)):x4=val(right$(x$,1))
  46. 46 p=0:t=0
  47. 47 p=p+1:onx1goto51,52,53,54,55,56
  48. 48 p=p+1:onx2goto51,52,53,54,55,56
  49. 49 p=p+1:onx3goto51,52,53,54,55,56
  50. 50 p=p+1:onx4goto51,52,53,54,55,56
  51. 51 print"[144]  [146] ";:pokes2,135:goto57
  52. 52 print"  [146] ";:pokes2,159:goto57
  53. 53 print"  [146] ";:pokes2,175:goto57
  54. 54 print"[159]  [146] ";:pokes2,191:goto57
  55. 55 print"[156]  [146] ";:pokes2,201:goto57
  56. 56 print"  [146] ";:pokes2,209:goto57
  57. 57 forl=1to99:nextl:pokes2,0:forl=1to250:nextl:onpgoto48,49,50
  58. 58 ontgoto79,80,81,82
  59. 59 print" ";:ifb=0then66
  60. 60 gosub91
  61. 61 onbgoto62,63,64,65
  62. 62 print"[144][209]";:goto66
  63. 63 print"[144][209][209]";:goto66
  64. 64 print"[144][209][209][209]";:goto66
  65. 65 print"[144][209][209][209][209]";:goto95
  66. 66 ifw=0then73
  67. 67 gosub92
  68. 68 onwgoto69,70,71,72
  69. 69 print"[144][209][146]":goto73
  70. 70 print"[144][209][209][146]":goto73
  71. 71 print"[144][209][209][209][146]":goto73
  72. 72 print"[144][209][209][209][209][146]"
  73. 73 print"[144]":print"                     "
  74. 74 print""
  75. 75 ifx<>10then16
  76. 76 forl=1to15:form=200to220+l*2:pokes2,m:nextm:nextl:pokes2,0
  77. 77 print"":print"   ";
  78. 78 t=t+1:ona1goto51,52,53,54,55,56
  79. 79 t=t+1:ona2goto51,52,53,54,55,56
  80. 80 t=t+1:ona3goto51,52,53,54,55,56
  81. 81 t=t+1:ona4goto51,52,53,54,55,56
  82. 82 print"    ":print"[144]correct colors return"
  83. 83 ifpeek(197)<>15then83
  84. 84 gett$:print"[147] too bad you missed!":print" 10 tries is enough."
  85. 85 forl=1to6:pokes2,160:form=1to400:nextm:pokes2,0:form=1to400:nextm:nextl
  86. 86 gett$:print"[147][144]  want to play again?":print:print:print"     yes or no?"
  87. 87 ifpeek(197)=11thengett$:goto4
  88. 88 ifpeek(197)=28thenpoke36879,27:goto90
  89. 89 goto87
  90. 90 gett$:print"[147]       [158]chicken!!":print:print:end
  91. 91 forl=200to254:pokes2,l:nextl:pokes2,0:return
  92. 92 forl=200to128step-1:pokes1,l:nextl:pokes1,0:return
  93. 93 print"illegal input!":pokes1+2,200:forl=1to500:nextl:pokes1+2,0
  94. 94 forl=1to999:nextl:gosub106:goto16
  95. 95 print:print:print"  you w i n !! return"
  96. 96 form=250to240step-1:pokes2,m:nextm:form=240to250:pokes2,m:nextm:pokes2,0
  97. 97 ifpeek(197)<>15then96
  98. 98 print"[147]"
  99. 99 ifx=1thenprint"     lucky guess!":goto104
  100. 100 ifx=2orx=3thenprint"      expert!!!":goto104
  101. 101 ifx=4orx=5orx=6thenprint"    pretty good!":goto104
  102. 102 ifx=7orx=8thenprint"[156]         so so!":goto104
  103. 103 print"  you barely got it!"
  104. 104 forl=1to50:form=248to253:pokes2,m:nextm:form=253to248step-1:pokes2,m:nextm:nextl
  105. 105 pokes2,0:goto86
  106. 106 print"[145][145]":print"                     ":print"[145][145]":return
  107.